home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_bas / ivbsrc.zip / GPRTINFO.BAS < prev    next >
BASIC Source File  |  1994-07-03  |  1KB  |  45 lines
  1. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
  2.  
  3. Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, lplnData As Any, lpOutData As Any) As Integer
  4.  
  5. Global Const GETPHYSPAGESIZE = 12
  6. Global Const GETSETPRINTORIENT = 30
  7. Global Const SP_ERROR = -1 'Miscellaneous constant
  8. Global Const NULL = 0      'Miscellaneous constant
  9.  
  10. '  Logical pixels/inch in X
  11. Global Const LOGPIXELSX = 88
  12. '  Logical pixels/inch in Y
  13. Global Const LOGPIXELSY = 90
  14.  
  15. Type POINTAPI
  16.     X As Integer
  17.     Y As Integer
  18. End Type
  19.  
  20. Type TEXTMETRIC
  21.     tmHeight As Integer
  22.     tmAscent As Integer
  23.     tmDescent As Integer
  24.     tmInternalLeading As Integer
  25.     tmExternalLeading As Integer
  26.     tmAveCharWidth As Integer
  27.     tmMaxCharWidth As Integer
  28.     tmWeight As Integer
  29.     tmItalic As String * 1
  30.     tmUnderlined As String * 1
  31.     tmStruckOut As String * 1
  32.     tmFirstChar As String * 1
  33.     tmLastChar As String * 1
  34.     tmDefaultChar As String * 1
  35.     tmBreakChar As String * 1
  36.     tmPitchAndFamily As String * 1
  37.     tmCharSet As String * 1
  38.     tmOverhang As Integer
  39.     tmDigitizedAspectX As Integer
  40.     tmDigitizedAspectY As Integer
  41. End Type
  42.  
  43. Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TEXTMETRIC) As Integer
  44.  
  45.